home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / testfiles / TestIO < prev    next >
Encoding:
Text File  |  2004-01-31  |  1.0 KB  |  41 lines
  1. amigatalk newIO: 'Gimme a string:' title: 'This is a simple Requester:'
  2.  
  3. rval <- amigatalk getString
  4.  
  5. ( 'User entered: ', rval ) print
  6.  
  7. amigatalk setIOMessage: 'Enter your age (in months):'
  8. amigatalk setIOTitle:   'So, how old are you?'
  9.  
  10. rval <- amigatalk getInteger
  11.  
  12. ( 'User entered: ', rval asString) print
  13.  
  14. amigatalk setIOTitle:    'Can you see the string??'
  15. amigatalk setIOMessage:  'How is your eyesight?'
  16. amigatalk displayString: 'This a test for displayString!'
  17.  
  18. amigatalk setIOTitle:     'Can you see the integer??'
  19. amigatalk setIOMessage:   'How many fleas you have:'
  20. amigatalk displayInteger: 666
  21.  
  22. amigatalk setIOTitle:     'Which file would you like to see?'
  23. amigatalk setIODirectory: 'AmigaTalk:'
  24.  
  25. rval <- amigatalk getFileName
  26.  
  27. amigatalk displayFile: rval
  28.  
  29. scr <- Screen new:   16r40D20001
  30.  
  31. scr open: 'TestScreen' "Screen has to be known to AmigaTalk."
  32.  
  33. amigatalk setIOTitle:      'Select your Screen Mode:'
  34. amigatalk setIOScreenName: 'TestScreen'
  35.  
  36. rval <- amigatalk getScreenModeID
  37.  
  38. scr close
  39.  
  40. ('You selected ', (rval asString)) print
  41.